home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / TDMotor.asc < prev    next >
Text File  |  1980-03-12  |  660b  |  30 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Wb Td Open 
  13. '  -Wb Td Motor On 
  14. '  -Wb Td Motor Off
  15. '  -Wb Td Close
  16. '
  17. 'Ouverture du TrackDisk
  18. A=Wb Td Open(0,0)
  19. 'DiskIo Ptr
  20. Print Hex$(A)
  21. Wait 50
  22. Print "Moteur actif..."
  23. Wb Td Motor On A
  24. Wait 50
  25. Print "Moteur Eteint..."
  26. Wb Td Motor Off A
  27. 'Fermeture du TrackDisk
  28. Wb Td Close A
  29. Wait 50
  30.